unit uCommitK;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Input1, DB, ADODB, ImgList, ComCtrls, ToolWin, Buttons, ExtCtrls,
  KDateTime, KDBDateTime, StdCtrls, Mask, DBCtrls, KDBEdit, KLookup;

type
  TfrmCommitK = class(TfrmInput1)
    KDBEdit1: TKDBEdit;
    KDBDateTime1: TKDBDateTime;
    qMasterCommitteeKID: TWideStringField;
    qMasterCommitteeK: TWideStringField;
    qMasterCommitDateK: TDateTimeField;
    qMasterProvID: TWideStringField;
    procedure qMasterBeforePost(DataSet: TDataSet);
  private
  protected
    function GetParamValue: String; override;
    function ListRefreshData: TCustomKLookUp; override;
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frmCommitK: TfrmCommitK;

implementation
uses uDataModule, Utils;

{$R *.dfm}

{ TfrmCommitK }

function TfrmCommitK.GetParamValue: String;
begin
       Result :=  DataModule1.qCommitKCommitteeKID.AsString;
end;

function TfrmCommitK.ListRefreshData: TCustomKLookUp;
begin
       Result :=  DataModule1.ListCommitK;
end;

procedure TfrmCommitK.qMasterBeforePost(DataSet: TDataSet);
begin
  inherited;
       qMasterCommitteeKID.AsString := qMasterCommitteeK.AsString + ValProince;
       qMasterProvID.AsString := ValProince;
end;

end.
